home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / toolfix.arc / DTB121.PAT < prev    next >
Text File  |  1987-03-03  |  2KB  |  75 lines
  1. PRODUCT : TURBO PASCAL DATABASE TOOLBOX
  2. VERSION : 1.01x
  3.      OS : ALL
  4.    DATE : June 27, 1986
  5.  
  6.   TITLE : UPDATE FROM VERSION 1.01x to 1.21x
  7.  
  8.  
  9. The  following  modifications update the Turbo  Database  Toolbox
  10. from version 1.01x to 1.21x. Note that all modifications are made 
  11. to the file ACCESS.BOX.
  12.  
  13. 1. In  the  procedure TaIOcheck in the file ACCESS.BOX  make  the 
  14.    following change:
  15.  
  16.   Change from:
  17.         .
  18.         .
  19.       I := 0;
  20.       while Ord(TaName[I]) <> 0 do
  21.       begin
  22.         .
  23.         .
  24.  
  25.   Change to:
  26.         .
  27.         .
  28.       I := 1;   { Ver. 1.21x modification }
  29.       while Ord(TaName[I]) <> 0 do
  30.       begin
  31.         .
  32.         .
  33.  
  34. 2. In  the  procedure  GetRec in the file  ACCESS.BOX  make  the 
  35.    following change:
  36.  
  37.    Change from:
  38.         .
  39.         .
  40.     Seek(DatF.F,R);
  41.     BlockRead(DatF.F,Buffer,1);
  42.         .
  43.         .
  44.  
  45.    Change to:
  46.         .
  47.         .
  48.     Seek(DatF.F,R);
  49.     IOstatus := IOresult;          { Ver. 1.21x addition }
  50.     TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  51.     BlockRead(DatF.F,Buffer,1);
  52.         .
  53.         .
  54.  
  55. 3.  In  the   procedure PutRec in the file  ACCESS.BOX  make  the     
  56.     following change:
  57.  
  58.    Change from:
  59.         .
  60.         .
  61.     Seek(DatF.F,R);
  62.     BlockWrite(DatF.F,Buffer,1);
  63.         .
  64.         .
  65.  
  66.    Change to:
  67.         .
  68.         .
  69.     Seek(DatF.F,R);
  70.     IOstatus := IOresult;          { Ver. 1.21x addition }
  71.     TaIOcheck(DatF,R);             { Ver. 1.21x addition }
  72.     BlockWrite(DatF.F,Buffer,1);
  73.         .
  74.         .